home *** CD-ROM | disk | FTP | other *** search
/ MacFormat UK 64 / MF_UK_64_1.iso / mac / Shareware Plus / Sound / bol-processor-280-data / BP2 examples / NO STYLE / -gr.koto3 < prev    next >
Encoding:
Text File  |  1998-03-03  |  1.8 KB  |  59 lines  |  [BP05/Bel0]
  1. // Bol Processor version BP2.8.0
  2. // Grammar file saved as '-gr.koto3'. Date: Mar 3 Mars 1998 -- 22:49
  3. -or.koto3
  4. -in.abc1
  5. -tb.koto3
  6. -se.koto3
  7. -ho.abc1
  8.  
  9. // File “-gr.koto3”
  10. // A sort of unidimensional cellular automaton producing a
  11. // sort of Turkish music!
  12.  
  13. // To get the real sound you would need a D50 or D550 synth.
  14. // Use sound patch C-36 "Koto" on the PN-D50-O2 memory card
  15. // or I-21 "Koto" with the D50 dump file enclosed with BP2.
  16.  
  17. // Here, the vibraphone patch of GeneralMIDI (program #12)
  18. // is automatically selected because the grammar loaded
  19. // the MIDI orchestra file “-or.koto3” which sent the
  20. // appropriate program change message.
  21.  
  22. // You may use a MIDI keyboard to control BP2 on channel 15.
  23.  
  24. // Here comes the grammar
  25.  
  26. RND
  27. gram#1[1] <100> S --> _vel(127) _volume(40) X X X X Y X X X X Y X X X X
  28. gram#1[2] <K9> X --> a        [Weight is controlled by K9, see Interaction]
  29. gram#1[3] X  --> b
  30. -------------------
  31. SUB
  32. gram#2[1] Y --> Y
  33. gram#2[2] #? ?1 --> #? ?1  [Keep leftmost symbol]
  34. gram#2[3] ?1 #? --> ?1 #?  [Keep rightmost symbol]
  35. gram#2[4] } --> }
  36. gram#2[5] , --> ,
  37. gram#2[6] <5> a --> a
  38. gram#2[7] <30> a b a --> a a
  39. gram#2[8] <100> #({) a b a --> {5,a c b,f f f - f}
  40. gram#2[9] <5> b --> b
  41. gram#2[10] <30> #({) b a b #(}) --> b b
  42. gram#2[11] <100> #({) b a b --> {3,b a b c b a,f a f}
  43. gram#2[12] <100-10> #({) #a b #(}) --> #a c b
  44. gram#2[13] c c c -->  c a c
  45. gram#2[14] c a c --> b a b
  46. gram#2[15] <50> ?1 ?1 ?2 ?3 ?4 ?4 --> ?2 ?3
  47. gram#2[16] <K9> ?1 ?1 ?1 --> ?1
  48. gram#2[17] <K9> ?1 ?1 --> ?1
  49. --------------------
  50. RND
  51. gram#3[1] <40> Y --> <<f>>
  52. gram#3[2] <50> Y --> <<chik>>
  53. gram#3[3] <1-1> ? #? --> ? Silence _script( MIDI send Continue) #? [Apply only once.]
  54. gram#3[4] <50> Silence --> - - - - - 
  55. gram#3[5] <15> Silence --> - - - - 
  56. gram#3[6] <8> Silence --> - - - 
  57. gram#3[7] <8> Silence --> - - 
  58.  
  59. // That's all folks!